home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / biz / dopus / ViewToolRexx.lha / ViewTool0.9.dopus5 < prev   
Text File  |  1999-02-21  |  3KB  |  58 lines
  1. /* Anzeige von jpg-Dateien mit ViewTool aus DOpus5 heraus
  2.    von Peter Hauke
  3.    e.Mail:          twilight@rcs.urz.tu-dresden.de
  4.    WWW:             http://rcswww.urz.tu-dresden.de/~twilight
  5.    andere Tools:    MaschCalc (Aminet:misc/sci/maschcal.lha)
  6.  
  7.    $VER: ViewTool.dopus5 Version 0.9
  8.     (21.02.1999)
  9.  
  10.    ViewTool aus dem Aminet ist ein jpg-Anzeiger mit PPC-Unterstützung
  11.    Dafür läßt es sich jedoch nicht von der Shell aus bedienen, sodaß
  12.    ein einfaches Einbinden in DirectoryOpus nicht möglich ist, wie man
  13.    es z.B. von ViewTek oder FastJPEG gewöhnt ist.
  14.  
  15.    Da das mitgelieferte ARexx-Script bei ViewTool nicht viel taugt und
  16.    zudem fehlerbehaftet ist (die auch in der Anleitung auftauchen)
  17.    gibts hier ein neues - es ist mein erster Versuch in ARexx, also
  18.    haut nicht alle auf mir rum, wenn was nicht stimmt!
  19.  
  20.  */
  21.  
  22. OPTIONS RESULTS
  23.                                                     
  24. ADDRESS 'DOPUS.1'                                   /* Opus ist Objekt der Begierde */
  25.  
  26. lister query source stem source_handle              /* Opus ermittelt aktuelle Lister */
  27. lister query source_handle.0 Path                   /* Pfad des aktuellen Listers ermittelt ...*/
  28. pfad=RESULT                                         /* ... und in Variable "pfad" speichern */
  29.  
  30. lister query source_handle.0 selfiles stem files    /* Angewählte Dateinamen ermitteln und in Feld "files" abspeichern */
  31.  
  32. do a=0 to files.count-1                             /* Schleifenbeginn: von 0 bis files.count-1
  33.                                                        in files.count wird von opus die anzahl der angewählten files gespeichert,
  34.                                                        die zählung beginnt jedoch bei 0 (daher auch files.count-1) */
  35.         lister select source_handle.0 files.a OFF   /* alle Files im Lister deselektieren */
  36.   end
  37.  
  38.         lister refresh source_handle.0 full         /* Lister refreshen, damit Deselktion wirklich statt findet */
  39.  
  40. do i=0 to files.count-1                             /* Schleifenbeginn: von 0 bis files.count-1 */
  41.                                                       
  42.         dateiname=pfad||files.i                     /* Dateipfad wird aus "pfad" und entsprechendem "files" eintrag zusammengesetzt */
  43.         lister select source_handle.0 files.i ON    /* gerade angezeigte Datei im Lister selektieren (erst nach REFRESH wirksam) */
  44.         lister refresh source_handle.0 full         /* Lister refreshen, damit wirklich selektiert wird */
  45.  
  46.     ADDRESS 'ViewToolRexx'                          /* ViewTool-Rexxport aufrufen */
  47.         LOADIMAGE 'file='dateiname                  /* ViewTool soll Datei laden */
  48.  
  49.     ADDRESS 'DOPUS.1'                               /* Opus-Rexxport aufrufen */
  50.         lister select source_handle.0 files.i OFF   /* das zuletzt angezeige Bild wird nun im Lister deselektiert, refresh wird in */
  51.                                                     /* Schleifendurchgang "nachgeholt" */
  52.   End                                               /* Schleifenende */
  53.  
  54.         lister refresh source_handle.0 full         /* Lister refreshen, damit das allerletzte Bild wirklich deselektiert wird */
  55.  
  56. EXIT(0)                                             /* Programmende */
  57.  
  58.